home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Medabots Cardz
/
Medabots CD Cardz Metabee.bin
/
mac
/
assets
/
metabee.dxr
/
00319_Script_319
< prev
next >
Wrap
Text File
|
2001-12-07
|
1KB
|
36 lines
property myFile, useronline, resetscore
global gotobrassurl, squam, thescore, gNetID, jumbo, beginscore
on mouseUp me
--useronline = (the environment).internetConnected
--if useronline = #online then
if objectP(myFile) then set myFile = 0 --Delete the instance if it already exists
myFile = new(xtra "fileio") -- Create an instance of FileIO
-- openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access
openFile (myFile, squam&"infom.txt",0)--Open the file with R/W access
delete(myFile) --deletes the file
-- createFile (myFile, the moviePath &"info.txt") --creates the file again
createFile (myFile, squam&"infom.txt") --creates the file again
-- openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
openFile(myFile, squam&"infom.txt",0) --Open the file with R/W access
-- mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
resetscore = 0
put resetscore into member("holdscore")
mySaveString = member("holdscore").text
writeString(myFile,mySaveString) --writes text to the file
closeFile(myFile) -- Close the file
myFile = 0 -- Dispose of the instance
if beginscore = 100 then
beginscore = 0
end if
goToNetPage gotobrassurl, "_new"
go to the frame - 1
--else
--set the blend of member("statusreport")=100
--end if
end